;;; compiled by @win386 on Sat Mar 13 01:40:42 1993
;;; from file c:/src/lucid-19.4/lisp/prim/userlock.el
;;; emacs version 19.3 Lucid.
;;; bytecomp version 2.08; 27-aug-92.
;;; optimization is on.
;;; this file uses opcodes which do not exist in Emacs18.
(if (and (boundp 'emacs-version)
(or (and (boundp 'epoch::version) epoch::version)
(string-lessp emacs-version "19")))
(error "This file was compiled for Emacs19."))
(byte-code "└┴┬├#ê─┼Mê╞╟Mê└╚┬╔#ê╩╦Mê╠═Mê╬╧Mê╨╤Mç" [put file-locked error-conditions (file-locked file-error error) ask-user-about-lock-minibuf #[(fn opponent) "└ïç" [((byte-code "└ ¼╘┬├ #ê╞ë ╔ ù└\n*ë U½à═ ê¬▒╬ ╧\"ë¼ì╨ ê┬╤!ê╥╙!ꬢ A╘=½ç═ ê└¬Ä A╒=½ê╓╫╪ E\"ê)¬) A)ç" [nil answer message "%s is locking %s: action (s, q, p, ?)? " opponent fn t cursor-in-echo-area inhibit-quit read-char quit-flag tem help-char ask-user-about-lock-help assoc ((115 . t) (113 . yield) (7 . yield) (112) (63 . help)) beep "Please type q, s, or p; or ? for help" sit-for 3 help yield signal file-locked "File is locked"] 6))] 1] ask-user-about-lock-help #[nil "└É┴┬!æç" ["*Help*" princ "It has been detected that you want to modify a file that someone else has\nalready started modifying in EMACS.\n\nYou can <s>teal the file; The other user becomes the\n intruder if (s)he ever unmodifies the file and then changes it again.\nYou can <p>roceed; you edit at your own (and the other user's) risk.\nYou can <q>uit; don't modify this file."] 3] file-supersession (file-supersession file-error error) ask-user-about-supersession-threat-minibuf #[(fn) "└ïç" [((byte-code "└ ¼╚┬├!ê─ ╞ )ùë U½â╔¬å╩╦\"Aë¼ì╠ ê┬═!ê╬╧!ê¬Ö ╔=½ç╨ ê└¬ì ╤=½ê╥╙╘D\"ê)¬5┬╓!ê└ë)ç" [nil answer message "File has changed on disk; really want to edit the buffer? (y, n or C-h) " t cursor-in-echo-area read-char tem help-char help assoc ((110 . yield) (7 . yield) (121 . proceed) (63 . help)) beep "Please type y or n; or ? for help" sit-for 3 ask-user-about-supersession-help yield signal file-supersession "File changed on disk" fn "File on disk now will become a backup file if you save these changes." buffer-backed-up] 5))] 1] ask-user-about-supersession-help #[nil "└É┴┬!æç" ["*Help*" princ "You want to modify a buffer whose disk file has changed\nsince you last read it in or saved it with this buffer.\n\nIf you say `y' to go ahead and modify this buffer,\nyou risk ruining the work of whoever rewrote the file.\nIf you say `n', the change you started to make will be aborted.\n\nUsually, you should type `n' and then `M-x revert-buffer',\nto get the latest version of the file, then make the change again."] 3] ask-user-about-lock-dbox #[(fn opponent) "└ ┴┬├ #╞B ╩!ê╦╠ì+ç" [allocate-event 0 format "%s is locking %s\n\n It has been detected that you want to modify a file that\n someone else has already started modifying in Emacs." opponent fn (["Steal Lock\n\nThe other user will\nbecome the intruder" steal t] ["Proceed\n\nEdit file at your own\n(and the other user's) risk" proceed t] nil ["Abort\n\nDon't modify the buffer\n" yield t]) dbox echo-keystrokes event popup-dialog-box aual-done (byte-code "└ !ê┬ !½Ä├ !─=½ç┼╞╟\"ê¬i┬ !½Ä├ !╚=½ç┼╞╔\"ê¬V┬ !½ô├ !╩=½î╦╠═E\"ê¬>╨ !¼9╤ ê╥╙!ê¬0" [next-command-event event menu-event-p event-object proceed throw aual-done nil steal t yield signal file-locked "File is locked" fn opponent button-release-event-p beep message "please answer the dialog box"] 5)] 6] ask-user-about-supersession-threat-dbox #[(fn) "└ ┴┬├ \"┼B ╔!ê╩╦ì+ç" [allocate-event 0 format "File %s has changed on disk\nsince its buffer was last read in or saved.\n\nDo you really want to edit the buffer? " fn (["Yes\n\nEdit the buffer anyway,\nignoring the disk file" proceed t] ["No\n\nDon't modify the buffer\n" yield t] nil ["No\n\nDon't modify the buffer\nbut revert it" revert t]) dbox echo-keystrokes event popup-dialog-box auast-done (byte-code "└ !ê┬ !½Ä├ !─=½ç┼╞╟\"ê¬i┬ !½æ├ !╚=½è╔╩╦ D\"ê¬S┬ !½í├ !═=½Ü ╬ ܼä╧╨!ê╤╟╥\"ê╔╩╙ D\"ê¬-╘ !¼(╒ ê╓╫!ê¬ " [next-command-event event menu-event-p event-object proceed throw auast-done nil yield signal file-supersession "File changed on disk" fn revert buffer-file-name error "ask-user-about-supersession-threat called bogusly" revert-buffer t "File changed on disk; reverted" button-release-event-p beep message "please answer the dialog box"] 4)] 5]] 4)
